
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tTipo_Discapacidades
# Region "tDiscapacidades"
	private mlistatDiscapacidades As New List (Of tDiscapacidades)
Public Property ListatDiscapacidades As System.Collections.Generic.List(Of tDiscapacidades)
Get
dim mtDiscapacidades As New tDiscapacidades
mlistatDiscapacidades =mtDiscapacidades.TraerFiltradoListOf("IdTipoDiscapacidad",Me.IdTipoDiscapacidad)
Return mlistatDiscapacidades
End Get
Set
RemoveAllListatDiscapacidades()
If Not (Value Is Nothing) Then
Dim otDiscapacidades As tDiscapacidades
	For Each otDiscapacidades in Value
		AddListatDiscapacidades(otDiscapacidades)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatDiscapacidades(newtDiscapacidades As tDiscapacidades)
	If (mlistatDiscapacidades Is Nothing) Then
		mlistatDiscapacidades = new System.Collections.Generic.List(Of tDiscapacidades)
	End If
	If Not mlistatDiscapacidades.Contains(newtDiscapacidades) Then
		mlistatDiscapacidades.Add(newtDiscapacidades)
		newtDiscapacidades.tTipo_Discapacidades = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatDiscapacidades(oldtDiscapacidades As tDiscapacidades)
	If (mlistatDiscapacidades.Contains(oldtDiscapacidades)) Then
		mlistatDiscapacidades.Remove(oldtDiscapacidades)
		oldtDiscapacidades.tTipo_Discapacidades = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatDiscapacidades()
	If Not (mlistatDiscapacidades Is Nothing)
		Dim tmp_listatDiscapacidades As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtDiscapacidades As tDiscapacidades
		For Each oldtDiscapacidades in mlistatDiscapacidades
			tmp_listatDiscapacidades.Add(oldtDiscapacidades)
		Next
	mlistatDiscapacidades.Clear()
	For Each oldtDiscapacidades in tmp_listatDiscapacidades
		oldtDiscapacidades = Nothing
	Next
	tmp_listatDiscapacidades.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tTipo_Discapacidades)
            Dim dtDatos As DataTable
            Dim listatTipo_Discapacidades As New List(Of tTipo_Discapacidades)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtTipo_Discapacidades As New tTipo_Discapacidades
				mtTipo_Discapacidades.IdTipoDiscapacidad = CType(dr.Item("IdTipoDiscapacidad"),Integer)
				mtTipo_Discapacidades.Traer_objeto()
            	listatTipo_Discapacidades.Add( mtTipo_Discapacidades)
    		Next dr
Return listatTipo_Discapacidades
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tTipo_Discapacidades)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatTipo_Discapacidades As New List(Of tTipo_Discapacidades)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtTipo_Discapacidades As New tTipo_Discapacidades
				mtTipo_Discapacidades.IdTipoDiscapacidad = CType(dr.Item("IdTipoDiscapacidad"),Integer)
				mtTipo_Discapacidades.Traer_objeto()
            	listatTipo_Discapacidades.Add( mtTipo_Discapacidades)
    		Next dr
Return listatTipo_Discapacidades
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tTipo_Discapacidades)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatTipo_Discapacidades As New List(Of tTipo_Discapacidades)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtTipo_Discapacidades As New tTipo_Discapacidades
				mtTipo_Discapacidades.IdTipoDiscapacidad = CType(dr.Item("IdTipoDiscapacidad"),Integer)
				mtTipo_Discapacidades.Traer_objeto()
            	listatTipo_Discapacidades.Add( mtTipo_Discapacidades)
    		Next dr
Return listatTipo_Discapacidades
End Function
# End Region

End Class
End Namespace
